A princípio esse markdown é uma continuação desse aqui: Análise de gastos dos parlamentares, que demostra algumas análises descritivas dos dados da CEAP. Dessa forma, o objetivo da parte 2 é trazer novos questionamentos desses dados e analisá-los descritivamente.
Importando os dados:
dadosCEAP = read_csv(("../data/dadosCEAP.csv"))
Antes de começar com perguntas, iremos preparar os dados para o que iremos precisar:
- Separar os estados brasileiros em suas respectivas regiões
dadosCEAP <- dadosCEAP %>%
mutate(
regiao = case_when(
sgUF %in% c("RJ", "SP", "ES", "MG") ~ "Sudeste",
sgUF %in% c("PB", "RN", "SE", "BA", "MA", "PE", "AL", "CE", "PI") ~ "Nordeste",
sgUF %in% c("GO", "MT", "MS", "DF") ~ "Centro-Oeste",
sgUF %in% c("RS", "PR", "SC") ~ "Sul",
sgUF %in% c("PA", "AC", "AM", "RO", "RR", "AP", "TO") ~ "Norte"
)
)
- Extrair só a data do parâmentro data de emissão e verificar os finais de semana:
dadosCEAP <- dadosCEAP %>%
mutate(
dia = day(dataEmissao),
mes = month(dataEmissao),
ano = year(dataEmissao))
dadosCEAP <- dadosCEAP %>%
mutate(data = paste(ano, mes, dia, sep='-') %>%
as.Date(.))
dadosCEAP$diaSemana <- weekdays(as.Date(dadosCEAP$data))
dadosCEAP <- dadosCEAP %>%
mutate(fds = ifelse(diaSemana %in% c("sábado","domingo"),TRUE,FALSE))
Depois da separação dos estados em regiões(Norte, Nordeste, Sul, Sudeste e Centro Oeste) e da extração das datas do horário de emissão, vamos as perguntas:
Com os dados da CEAP podemos ver a data de emissão do respectivo documento. Dessa forma, quanto e como gastam os partidos em finais de semana?
dadosCEAP %>%
filter(fds == TRUE) %>%
group_by(tipoDespesa,
sgPartido) %>%
summarise(valorTot = sum(valorLíquido)) %>%
arrange(-valorTot) %>%
plot_ly(x = ~valorTot,
y = ~tipoDespesa,
color = ~sgPartido,
type = 'scatter',
text = ~paste('Total gasto (R$): ', valorTot,
'<br>Tipo de despesa: ', tipoDespesa,
'<br>Partido: ', sgPartido)) %>%
layout(title = "Tipos de gastos da CEAP de cada partido",
xaxis = list(title = "Total gasto (R$)"),
yaxis = list(title = "Tipo de despesa"))
A visualização acima, podemos observar que os maiores gastos dos finais de semana foram com:
- Combustível: R$ 1.017.093,51;
- Manutenção de escritório de apoio à atividade parlamentar: R$ 880.633,47;
- Telefonia: R$ 754.069,51.
Os valores acima foram retirados dos 3 maiores gastos, mas fato curioso é que o PT é o partido que lidera nas 3 categorias. Além disso, podemos ver também que na maioria dos tipos de despesas os partidos que mais gastam são PT, PP, PSDB, PMDB.
E ao observar os dados dos finais de semana, que por sinal são valores altos, que tal observar os dados último Natal e reveillon ?
Obs.: Em nossa base de dados o úlitmo Natal registrado foi de 2016 e Reveillon de 2017.
dadosCEAP %>%
filter(data == "2017-01-01") %>%
group_by(nomeParlamentar,
tipoDespesa) %>%
summarise(valorTot = sum(valorLíquido)) %>%
arrange(-valorTot) %>%
ungroup() %>%
slice(1:10) %>%
ggplot(aes(x = reorder(nomeParlamentar, -valorTot),
y = valorTot,
color = tipoDespesa)) +
geom_point() +
geom_segment(aes(x = reorder(nomeParlamentar, -valorTot),
xend = reorder(nomeParlamentar, -valorTot),
y = 0,
yend = valorTot)) +
coord_flip() +
labs(title = "Top 10 dos parlamentares que gastaram no Reveillon de 2017",
x = "Nome do parlamentar",
y = "Total gasto (R$)")

NA
É interessante observar que em datas que teoricamente não possuem atividades trabalhistas, pois são feriados, há registros de emissão de notas fiscais. Elenquei os 10 parlamentares que tiveram a maior soma de gastos e é legal observar que os tipos de despesas são bem atípicas, como locação ou freteamento de veículos automotores, divulgação de atividade parlamentar, serviço de táxi/pedágio ou estacionamento e manutenção de escritório. Agora fica o questionamento, será que esse dinheiro foi gasto corretamente ou podemos dar o selo de turistas, panfleteiro, telefonista ou de vou de táxi? Quem quiser saber dos canditados e seus respectivos gastos e selos que ganham, acessem o vidinha de balada.
LS0tCnRpdGxlOiAiQW7DoWxpc2UgZGUgZ2FzdG9zIGRlIHBhcmxhbWVudGFyZXMgLSBwYXJ0ZSAyIgphdXRob3I6ICJJdnluYSBTYW50aW5vIgpkYXRlOiAiMDcgZGUgc2V0ZW1icm8gZGUgMjAxOCIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBkZl9wcmludDogcGFnZWQKICAgIHRvYzogeWVzCiAgICB0b2NfZmxvYXQ6IHllcwogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKLS0tCgpgYGB7ciBzZXR1cCwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRSwgaW5jbHVkZT1GQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkobHVicmlkYXRlKQpsaWJyYXJ5KHBsb3RseSkKdGhlbWVfc2V0KHRoZW1lX21pbmltYWwoKSkKYGBgCgpBIHByaW5jw61waW8gZXNzZSBtYXJrZG93biDDqSB1bWEgY29udGludWHDp8OjbyBkZXNzZSBhcXVpOiBbQW7DoWxpc2UgZGUgZ2FzdG9zIGRvcyBwYXJsYW1lbnRhcmVzXShodHRwOi8vcnB1YnMuY29tL2l2eW5hc2FudGluby9nYXN0b3NwYXJsYW1lbnRhcmVzKSwgcXVlIGRlbW9zdHJhIGFsZ3VtYXMgYW7DoWxpc2VzIGRlc2NyaXRpdmFzIGRvcyBkYWRvcyBkYSBDRUFQLiBEZXNzYSBmb3JtYSwgbyBvYmpldGl2byBkYSBwYXJ0ZSAyIMOpIHRyYXplciBub3ZvcyBxdWVzdGlvbmFtZW50b3MgZGVzc2VzIGRhZG9zIGUgYW5hbGlzw6EtbG9zIGRlc2NyaXRpdmFtZW50ZS4KCkltcG9ydGFuZG8gb3MgZGFkb3M6CmBgYHtyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpkYWRvc0NFQVAgPSByZWFkX2NzdigoIi4uL2RhdGEvZGFkb3NDRUFQLmNzdiIpKQpgYGAKCkFudGVzIGRlIGNvbWXDp2FyIGNvbSBwZXJndW50YXMsIGlyZW1vcyBwcmVwYXJhciBvcyBkYWRvcyBwYXJhIG8gcXVlIGlyZW1vcyBwcmVjaXNhcjoKCjEuIFNlcGFyYXIgb3MgZXN0YWRvcyBicmFzaWxlaXJvcyBlbSBzdWFzIHJlc3BlY3RpdmFzIHJlZ2nDtWVzCgpgYGB7ciwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0KZGFkb3NDRUFQIDwtIGRhZG9zQ0VBUCAlPiUgCiAgbXV0YXRlKAogICAgcmVnaWFvID0gY2FzZV93aGVuKAogICAgICBzZ1VGICVpbiUgYygiUkoiLCAiU1AiLCAiRVMiLCAiTUciKSB+ICJTdWRlc3RlIiwKICAgICAgc2dVRiAlaW4lIGMoIlBCIiwgIlJOIiwgIlNFIiwgIkJBIiwgIk1BIiwgIlBFIiwgIkFMIiwgIkNFIiwgIlBJIikgfiAiTm9yZGVzdGUiLAogICAgICBzZ1VGICVpbiUgYygiR08iLCAiTVQiLCAiTVMiLCAiREYiKSB+ICJDZW50cm8tT2VzdGUiLAogICAgICBzZ1VGICVpbiUgYygiUlMiLCAiUFIiLCAiU0MiKSB+ICJTdWwiLAogICAgICBzZ1VGICVpbiUgYygiUEEiLCAiQUMiLCAiQU0iLCAiUk8iLCAiUlIiLCAiQVAiLCAiVE8iKSB+ICJOb3J0ZSIKICAgICkKICApCiAgCmBgYAoKMi4gRXh0cmFpciBzw7MgYSBkYXRhIGRvIHBhcsOibWVudHJvIGRhdGEgZGUgZW1pc3PDo28gZSB2ZXJpZmljYXIgb3MgZmluYWlzIGRlIHNlbWFuYToKCmBgYHtyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpkYWRvc0NFQVAgPC0gZGFkb3NDRUFQICU+JSAKICBtdXRhdGUoCiAgICBkaWEgPSBkYXkoZGF0YUVtaXNzYW8pLAogICAgbWVzID0gbW9udGgoZGF0YUVtaXNzYW8pLAogICAgYW5vID0geWVhcihkYXRhRW1pc3NhbykpCgpkYWRvc0NFQVAgPC0gZGFkb3NDRUFQICU+JSAKICBtdXRhdGUoZGF0YSA9IHBhc3RlKGFubywgbWVzLCBkaWEsIHNlcD0nLScpICU+JSAKICAgICAgICAgICBhcy5EYXRlKC4pKQoKZGFkb3NDRUFQJGRpYVNlbWFuYSA8LSB3ZWVrZGF5cyhhcy5EYXRlKGRhZG9zQ0VBUCRkYXRhKSkKCmRhZG9zQ0VBUCA8LSBkYWRvc0NFQVAgJT4lCiAgbXV0YXRlKGZkcyA9IGlmZWxzZShkaWFTZW1hbmEgJWluJSBjKCJzw6FiYWRvIiwiZG9taW5nbyIpLFRSVUUsRkFMU0UpKQoKYGBgCgpEZXBvaXMgZGEgc2VwYXJhw6fDo28gZG9zIGVzdGFkb3MgZW0gcmVnacO1ZXMoTm9ydGUsIE5vcmRlc3RlLCBTdWwsIFN1ZGVzdGUgZSBDZW50cm8gT2VzdGUpIGUgZGEgZXh0cmHDp8OjbyBkYXMgZGF0YXMgZG8gaG9yw6FyaW8gZGUgZW1pc3PDo28sIHZhbW9zIGFzIHBlcmd1bnRhczoKCiMjIyBDb20gcmVsYcOnw6NvIGFvcyBnYXN0b3MgZGUgY2FkYSByZWdpw6NvLCBwb2RlbW9zIG9ic2VydmFyIHNlIGjDoSBhbGd1bWEgc2ltaWxhcmlkYWRlIG91IHBhZHLDo28gY29tIHRpcG9zIGRlIGRlc3Blc2FzIGUgZXNzZXMgZ2FzdG9zPwoKYGBge3IsIHdhcm5pbmc9RkFMU0UsIG1lc3NhZ2U9RkFMU0V9CmRhZG9zQ0VBUCAlPiUgCiAgZ3JvdXBfYnkodGlwb0Rlc3Blc2EsCiAgICAgICAgICAgcmVnaWFvKSAlPiUgCiAgc3VtbWFyaXNlKHZhbG9yVG90ID0gc3VtKHZhbG9yTMOtcXVpZG8pKSAlPiUgCiAgZ2dwbG90KGFlcyh5ID0gdmFsb3JUb3QsCiAgICAgICAgICAgICB4ID0gcmVnaWFvLAogICAgICAgICAgICAgZmlsbCA9IHRpcG9EZXNwZXNhKSkgKwogIGdlb21fY29sKHBvc2l0aW9uID0gcG9zaXRpb25faWRlbnRpdHkoKSkgKwogIGxhYnMoeCA9ICJSZWdpw6NvIGJyYXNpbGVpcmEiLAogICAgICAgeSA9ICJUb3RhbCBnYXN0byAoUiQpIikgKwogIGNvb3JkX2ZsaXAoKQogIApgYGAKCkNvbW8gcG9kZW1vcyBvYnNlcnZhciBubyBncsOhZmljbyBhY2ltYSwgb3MgdGlwb3MgZGUgZGVzcGVzYXMgZGUgY2FkYSByZWdpw6NvIGRvIEJyYXNpbDoKCi0gRm9ybmVjaW1lbnRvIGRlIGFsaW1lbnRhw6fDo28gZG8gcGFybGFtZW50YXI7Ci0gRGl2dWxnYcOnw6NvIGRlIGF0aXZpZGFkZSBkbyBwYXJsYW1lbnRhcjsKLSBNYW51dGVuw6fDo28gZGUgZXNjcml0w7NyaW8gZGUgYXBvaW8gw6AgYXRpdmlkYWRlIHBhcmxhbWVudGFyOwotIFRlbGVmb25pYS4KCkFvIGVsZW5jYXIgb3MgdMOzcGljb3MgYWNpbWEsIHBvZGVtb3MgdmVyIHF1ZSByZWdpw7VlcyBjb21vIFN1bCBlIFN1ZGVzdGUgdGl2ZXJhbSBjb21wb3J0YW1lbnRvcyBzZW1lbGhhbnRlcyBjb20gb3MgdGlwb3MgZGUgZGVzcGVzYSwgYW8gZ2FzdGFyIGNvbSBmb3JuZWNpbWVudG8gZGUgYWxpbWVudGHDp8OjbywgbWFudXRlbsOnw6NvIGRlIGVzY3JpdMOzcmlvIGUgdGVsZWZvbmlhLiBKw6EgYXMgZGVtYWlzIHJlZ2nDtWVzLCBOb3J0ZSwgTm9yZGVzdGUgZSBDZW50cm8gT2VzdGUgdGl2ZXJhbSBjb21vIHRvcCAzIGNvbSBkaXZ1bGdhw6fDo28gZGUgYXRpdmlkYWRlIHBhcmxhbWVudGFyLCBmb3JuZWNpbWVudG8gZGUgYWxpbWVudGHDp8OjbyBlIHNlcnZpw6dvcyBkZSB0ZWxlZm9uaWEuCgrDiSB2w6FsaWRvIHJlc3NhbHRhciwgYXNzaW0gY29tbyBmb2kgZmVpdG8gbm8gbWFya2Rvd24gcGFydGUgMSwgcXVlIGEgcHJvcG9yw6fDo28gZGUgcGFybGFtZW50YXJlcyBkZSBjYWRhIHJlZ2nDo28gZG8gQnJhc2lsIMOpIGRpZmVyZW50ZSwgcG9yIGV4ZW1wbG8sIGEgcmVnacOjbyBTdWRlc3RlIHRlbSBhIG1haW9yIGNvbmNlbnRyYcOnw6NvIGRlIHBhcmxhbWVudGFyZXMgZSBjb20gaXNzbywgY29uc2VxdWVudGVtZW50ZSwgb3MgZ2FzdG9zIG5hdHVyYWxtZW50ZSB0ZW5kZW0gYSBzZXJlbSBtYWlvcmVzLgoKIyMjIENvbSBvcyBkYWRvcyBkYSBDRUFQIHBvZGVtb3MgdmVyIGEgZGF0YSBkZSBlbWlzc8OjbyBkbyByZXNwZWN0aXZvIGRvY3VtZW50by4gRGVzc2EgZm9ybWEsIHF1YW50byBlIGNvbW8gZ2FzdGFtIG9zIHBhcnRpZG9zIGVtIGZpbmFpcyBkZSBzZW1hbmE/CgpgYGB7ciwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRX0KZGFkb3NDRUFQICU+JQogIGZpbHRlcihmZHMgPT0gVFJVRSkgJT4lIAogIGdyb3VwX2J5KHRpcG9EZXNwZXNhLAogICAgICAgICAgIHNnUGFydGlkbykgJT4lIAogIHN1bW1hcmlzZSh2YWxvclRvdCA9IHN1bSh2YWxvckzDrXF1aWRvKSkgJT4lIAogIGFycmFuZ2UoLXZhbG9yVG90KSAlPiUKICBwbG90X2x5KHggPSB+dmFsb3JUb3QsCiAgICAgICAgICB5ID0gfnRpcG9EZXNwZXNhLAogICAgICAgICAgY29sb3IgPSB+c2dQYXJ0aWRvLAogICAgICAgICAgdHlwZSA9ICdzY2F0dGVyJywKICAgICAgICAgIHRleHQgPSB+cGFzdGUoJ1RvdGFsIGdhc3RvIChSJCk6ICcsIHZhbG9yVG90LAogICAgICAgICAgICAgICAgICAgICAgICAnPGJyPlRpcG8gZGUgZGVzcGVzYTogJywgdGlwb0Rlc3Blc2EsCiAgICAgICAgICAgICAgICAgICAgICAgICc8YnI+UGFydGlkbzogJywgc2dQYXJ0aWRvKSkgJT4lIAogIGxheW91dCh0aXRsZSA9ICJUaXBvcyBkZSBnYXN0b3MgZGEgQ0VBUCBkZSBjYWRhIHBhcnRpZG8iLAogICAgICAgICB4YXhpcyA9IGxpc3QodGl0bGUgPSAiVG90YWwgZ2FzdG8gKFIkKSIpLAogICAgICAgICB5YXhpcyA9IGxpc3QodGl0bGUgPSAiVGlwbyBkZSBkZXNwZXNhIikpCmBgYAoKQSB2aXN1YWxpemHDp8OjbyBhY2ltYSwgcG9kZW1vcyBvYnNlcnZhciBxdWUgb3MgbWFpb3JlcyBnYXN0b3MgZG9zIGZpbmFpcyBkZSBzZW1hbmEgZm9yYW0gY29tOgoKLSBDb21idXN0w612ZWw6IFIkIDEuMDE3LjA5Myw1MTsKLSBNYW51dGVuw6fDo28gZGUgZXNjcml0w7NyaW8gZGUgYXBvaW8gw6AgYXRpdmlkYWRlIHBhcmxhbWVudGFyOiBSJCA4ODAuNjMzLDQ3OwotIFRlbGVmb25pYTogUiQgNzU0LjA2OSw1MS4KCk9zIHZhbG9yZXMgYWNpbWEgZm9yYW0gcmV0aXJhZG9zIGRvcyAzIG1haW9yZXMgZ2FzdG9zLCBtYXMgZmF0byBjdXJpb3NvIMOpIHF1ZSBvIFBUIMOpIG8gcGFydGlkbyBxdWUgbGlkZXJhIG5hcyAzIGNhdGVnb3JpYXMuIEFsw6ltIGRpc3NvLCBwb2RlbW9zIHZlciB0YW1iw6ltIHF1ZSBuYSBtYWlvcmlhIGRvcyB0aXBvcyBkZSBkZXNwZXNhcyBvcyBwYXJ0aWRvcyBxdWUgbWFpcyBnYXN0YW0gc8OjbyBQVCwgUFAsIFBTREIsIFBNREIuCgojIyMjIEUgYW8gb2JzZXJ2YXIgb3MgZGFkb3MgZG9zIGZpbmFpcyBkZSBzZW1hbmEsIHF1ZSBwb3Igc2luYWwgc8OjbyB2YWxvcmVzIGFsdG9zLCBxdWUgdGFsIG9ic2VydmFyIG9zIGRhZG9zIMO6bHRpbW8gTmF0YWwgZSByZXZlaWxsb24gPwoKT2JzLjogRW0gbm9zc2EgYmFzZSBkZSBkYWRvcyBvIMO6bGl0bW8gTmF0YWwgcmVnaXN0cmFkbyBmb2kgZGUgMjAxNiBlIFJldmVpbGxvbiBkZSAyMDE3LgoKYGBge3IsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmRhZG9zQ0VBUCAlPiUgCiAgZmlsdGVyKGRhdGEgPT0gIjIwMTYtMTItMjUiKSAlPiUgCiAgZ3JvdXBfYnkobm9tZVBhcmxhbWVudGFyLAogICAgICAgICAgIHRpcG9EZXNwZXNhKSAlPiUgCiAgc3VtbWFyaXNlKHZhbG9yVG90ID0gc3VtKHZhbG9yTMOtcXVpZG8pKSAlPiUgCiAgYXJyYW5nZSgtdmFsb3JUb3QpICU+JSAKICB1bmdyb3VwKCkgJT4lIAogIHNsaWNlKDE6MTApCmBgYAoKCmBgYHtyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpkYWRvc0NFQVAgJT4lIAogIGZpbHRlcihkYXRhID09ICIyMDE3LTAxLTAxIikgJT4lIAogIGdyb3VwX2J5KG5vbWVQYXJsYW1lbnRhciwKICAgICAgICAgICB0aXBvRGVzcGVzYSkgJT4lIAogIHN1bW1hcmlzZSh2YWxvclRvdCA9IHN1bSh2YWxvckzDrXF1aWRvKSkgJT4lIAogIGFycmFuZ2UoLXZhbG9yVG90KSAlPiUgCiAgdW5ncm91cCgpICU+JSAKICBzbGljZSgxOjEwKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gcmVvcmRlcihub21lUGFybGFtZW50YXIsIC12YWxvclRvdCksCiAgICAgICAgICAgICB5ID0gdmFsb3JUb3QsCiAgICAgICAgICAgICBjb2xvciA9IHRpcG9EZXNwZXNhKSkgKwogIGdlb21fcG9pbnQoKSArCiAgZ2VvbV9zZWdtZW50KGFlcyh4ID0gcmVvcmRlcihub21lUGFybGFtZW50YXIsIC12YWxvclRvdCksCiAgICAgICAgICAgICAgICAgICB4ZW5kID0gcmVvcmRlcihub21lUGFybGFtZW50YXIsIC12YWxvclRvdCksCiAgICAgICAgICAgICAgICAgICB5ID0gMCwKICAgICAgICAgICAgICAgICAgIHllbmQgPSB2YWxvclRvdCkpICsKICBjb29yZF9mbGlwKCkgKwogIGxhYnModGl0bGUgPSAiVG9wIDEwIGRvcyBwYXJsYW1lbnRhcmVzIHF1ZSBnYXN0YXJhbSBubyBSZXZlaWxsb24gZGUgMjAxNyIsCiAgICAgICB4ID0gIk5vbWUgZG8gcGFybGFtZW50YXIiLAogICAgICAgeSA9ICJUb3RhbCBnYXN0byAoUiQpIikKICAKYGBgCgrDiSBpbnRlcmVzc2FudGUgb2JzZXJ2YXIgcXVlIGVtIGRhdGFzIHF1ZSB0ZW9yaWNhbWVudGUgbsOjbyBwb3NzdWVtIGF0aXZpZGFkZXMgdHJhYmFsaGlzdGFzLCBwb2lzIHPDo28gZmVyaWFkb3MsIGjDoSByZWdpc3Ryb3MgZGUgZW1pc3PDo28gZGUgbm90YXMgZmlzY2Fpcy4gRWxlbnF1ZWkgb3MgMTAgcGFybGFtZW50YXJlcyBxdWUgdGl2ZXJhbSBhIG1haW9yIHNvbWEgZGUgZ2FzdG9zIGUgw6kgbGVnYWwgb2JzZXJ2YXIgcXVlIG9zIHRpcG9zIGRlIGRlc3Blc2FzIHPDo28gYmVtIGF0w61waWNhcywgY29tbyBsb2Nhw6fDo28gb3UgZnJldGVhbWVudG8gZGUgdmXDrWN1bG9zIGF1dG9tb3RvcmVzLCBkaXZ1bGdhw6fDo28gZGUgYXRpdmlkYWRlIHBhcmxhbWVudGFyLCBzZXJ2acOnbyBkZSB0w6F4aS9wZWTDoWdpbyBvdSBlc3RhY2lvbmFtZW50byBlIG1hbnV0ZW7Dp8OjbyBkZSBlc2NyaXTDs3Jpby4gQWdvcmEgZmljYSBvIHF1ZXN0aW9uYW1lbnRvLCBzZXLDoSBxdWUgZXNzZSBkaW5oZWlybyBmb2kgZ2FzdG8gY29ycmV0YW1lbnRlIG91IHBvZGVtb3MgZGFyIG8gc2VsbyBkZSB0dXJpc3RhcywgcGFuZmxldGVpcm8sIHRlbGVmb25pc3RhIG91IGRlIHZvdSBkZSB0w6F4aT8gUXVlbSBxdWlzZXIgc2FiZXIgZG9zIGNhbmRpdGFkb3MgZSBzZXVzIHJlc3BlY3Rpdm9zIGdhc3RvcyBlIHNlbG9zIHF1ZSBnYW5oYW0sIGFjZXNzZW0gbyBbdmlkaW5oYSBkZSBiYWxhZGFdKGh0dHA6Ly92aWRpbmhhZGViYWxhZGEuY29tLykuCgo=